home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / invrmerg.arc / MERGE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-07-04  |  256 b   |  14 lines
  1. 5  DEF SEG=&H1700:BLOAD"merge.bld",0
  2. 10  SCREEN 1:CLS:KEY OFF
  3. 20  INVERT=0
  4. 40  DEF SEG=&HBC00:BLOAD"A:IMPRESS.IMG",0
  5. 100  DEF SEG=&HB800:BLOAD"A:PICTURE1.IMG",0
  6. 110  DEF SEG=&H1700
  7. 111  A$=INPUT$(1)
  8. 112  OUT &H3DD,16
  9. 113  A$=INPUT$(1)
  10. 114  OUT &H3DD,0
  11. 120  CALL INVERT
  12. 130  A$=INPUT$(1)
  13. 140  END
  14.